Fortran do while 语句

! 用于不知道会循环几次的情况
do while (logical_expression)
  ...
end do